home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / log / db3log / addstate.prg < prev    next >
Text File  |  1987-03-10  |  1KB  |  54 lines
  1. * ADDSTATE.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 07/02/83
  4. * REV 03/08/87 FOR USE ON PC
  5. SET TALK OFF
  6. USE STATE INDEX STATE
  7. SET INDEX TO STATE
  8. DO WHILE .T.
  9. CLEAR
  10. @ 0,0 SAY 'ENTER [ END ] TO EXIT'
  11. @ 0,30 SAY '****STATE CHECKLIST****'
  12. ACCEPT 'STATE: ' TO MSTATE
  13. STORE UPPER(MSTATE) TO MSTATE
  14.     IF MSTATE = 'END'
  15.        RETURN
  16.     ENDIF
  17. LOCATE FOR STATE=MSTATE
  18.     IF EOF()
  19.        @ 12,40 SAY 'STATE NOT FOUND'
  20.        @ 13,40 SAY 'CHECK ABREVIATION'
  21.        WAIT
  22.        CLEAR
  23.     ELSE
  24.        @ 5,0 SAY 'STATE'
  25.        @ 5,6  SAY 'SSB'
  26.        @ 5,10 SAY 'CW'
  27.        @ 5,14 SAY 'S2'
  28.        @ 5,18 SAY 'S6'
  29.        @ 5,22 SAY 'S10'
  30.        @ 5,26 SAY 'S15'
  31.        @ 5,30 SAY 'S20'
  32.        @ 5,34 SAY 'S40'
  33.        @ 5,38 SAY 'S80'
  34.        @ 5,42 SAY 'C2'
  35.        @ 5,46 SAY 'C6'
  36.        @ 5,50 SAY 'C10'
  37.        @ 5,54 SAY 'C15'
  38.        @ 5,58 SAY 'C20'
  39.        @ 5,62 SAY 'C40'
  40.        @ 5,66 SAY 'C80'
  41.        DISPLAY OFF
  42.        ? RECNO()
  43.        ?
  44.           ACCEPT 'AMMEND: ' TO MAMMEND
  45.           STORE UPPER(MAMMEND) TO MAMMEND
  46.               IF MAMMEND = 'Y'
  47.                  EDIT
  48.               ENDIF
  49.     ENDIF
  50. RELEASE MSTATE
  51. RELEASE MAMMEND
  52. CLEAR
  53. ENDDO
  54.